home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 31
/
64er_Magazin_Sonderheft_31_19xx_Markt__Technik_de.d64
/
listing 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
312b
|
17 lines
25 bload"b.demo",8 block 31
26 :
30 rem laden der tondaten
35 bload"s.demo",8
36 :
40 rem abspielen der blocktabelle
45 play block 1 speed 10
50 rem block 2 mit unterschiedlichen
51 rem speedwerten abspielen
52 :
55 for i=1to5
56 qq=int (rnd(ti)*8)+6
57 play block 2 speed qq
58 next i
59 :
60 play block 3 speed 10